home *** CD-ROM | disk | FTP | other *** search
/ Java Programmer's Toolkit / Java Programmer's Toolkit.iso / gs3.53 / gslp.ps < prev    next >
Text File  |  1996-01-10  |  15KB  |  518 lines
  1. (
  2. true setglobal
  3. (traceop.ps) run
  4. /def 2 0 traceop
  5. false setglobal
  6. )pop
  7. %    Copyright (C) 1991, 1995 Aladdin Enterprises.  All rights reserved.
  8. % 
  9. % This file is part of Aladdin Ghostscript.
  10. % 
  11. % Aladdin Ghostscript is distributed with NO WARRANTY OF ANY KIND.  No author
  12. % or distributor accepts any responsibility for the consequences of using it,
  13. % or for whether it serves any particular purpose or works at all, unless he
  14. % or she says so in writing.  Refer to the Aladdin Ghostscript Free Public
  15. % License (the "License") for full details.
  16. % 
  17. % Every copy of Aladdin Ghostscript must include a copy of the License,
  18. % normally in a plain ASCII text file named PUBLIC.  The License grants you
  19. % the right to copy, modify and redistribute Aladdin Ghostscript, but only
  20. % under certain conditions described in the License.  Among other things, the
  21. % License requires that the copyright notice and this notice be preserved on
  22. % all copies.
  23.  
  24. % gslp.ps - format and print text
  25.  
  26. % This utility provides functionality approximately equivalent to the Unix
  27. % `enscript' program.  It prints plain text files using a single font.
  28. % It currently handles tabs and formfeeds, but not backspaces.
  29. % It only works with fixed-pitch fonts.
  30. % Standard flags implemented:
  31. %    -12BclqRr -b -f -F -L -p
  32. % Sun flags implemented:
  33. %    -T<n>    set tab width
  34. % Flags ignored:
  35. %    -GghKkmow -# -C -d -J -n -P -S -s -t -v
  36. % Flags added:
  37. %    --detect
  38. %        treats the file as PostScript if it starts with %!
  39. %    --(heading|footing)-(left|center|right) <string>
  40. %        sets the heading/footing fields; use -B first to clear
  41. %    --first-page <n>
  42. %        sets the first page to print
  43. %    --last-page <n>
  44. %        sets the last page to print
  45. %    --spacing <n>
  46. %        for double (n=2), triple (n=3), etc. spacing
  47. % Also, the string %# in a heading or footing is replaced with the page #.
  48. /PageNumberString (%#) def
  49.  
  50. /lpdict 150 dict def
  51. lpdict begin
  52.  
  53. % build iso-latin-1 version of a font
  54. /font-to-iso-latin-1 {    % <font> font-to-iso-latin-1 <font>
  55.     %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1
  56.     dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
  57.     /Encoding ISOLatin1Encoding def currentdict end
  58.     dup /FontName get 80 string cvs (-ISOLatin1) concatstrings cvn 
  59.     exch definefont
  60. } def
  61.  
  62. /find-latin-font {    % <name> find-latin-font <font>
  63.   findfont font-to-iso-latin-1
  64. } def
  65.  
  66. % Define the initial values of the printing parameters.
  67.  
  68. /BodyFont null def        % use default
  69.   /defaultBodyFont
  70.     { /Courier find-latin-font Landscape { 7 } { 10 } ifelse scalefont } def
  71. /Columns 1 def
  72. /DetectFileType false def
  73. /Footers false def
  74. /FootingLeft () def
  75. /FootingCenter () def
  76. /FootingRight () def
  77. /Headers true def
  78. /HeadingLeft () def
  79. /HeadingCenter () def
  80. /HeadingRight (page ) PageNumberString concatstrings def
  81. /HeadingFont null def        % use default
  82.   /defaultHeadingFont
  83.     { /Courier-Bold find-latin-font 10 scalefont } def
  84. /Landscape false def
  85. /MarginBottom 36 def        % 1/2"
  86. /MarginLeft 36 def        % 1/2"
  87. /MarginRight 36 def        % 1/2"
  88. /MarginTop 36 def        % 1/2"
  89. /MaxLines 9999 def        % max lines per page
  90. /Noisy true def            % i.e., not quiet
  91. /OutFile null def        % null = write directly to device
  92. /PageFirst 1 def
  93. /PageLast 99999 def
  94. /Spacing 1 def
  95. /Tab 8 def
  96. /Truncate false def        % wrap long lines, don't truncate
  97.  
  98. % When writing to a file, we want to write out PostScript;
  99. % when writing to the printer, we want to execute it;
  100. % some commands should be executed regardless.
  101. % lpexec provides for all this.
  102.  
  103. /lpexec        % <arg1> ... <argn> </op> <n> <do_always> lpexec -
  104.  { OutFile null eq
  105.     { pop 1 add true
  106.     }
  107.     { /t exch def 1 add /n exch def cvx
  108.       n { n -1 roll dup wosp } repeat
  109.       OutFile (\n) writestring
  110.       n t
  111.     }
  112.    ifelse
  113.     { pop load exec }
  114.     { { pop } repeat }
  115.    ifelse
  116.  } def
  117.  
  118. /lpmoveto
  119.  { /moveto 2 true lpexec
  120.  } def
  121. /lpshow
  122.  { dup length 0 ne { /show 1 false lpexec } { pop } ifelse
  123.  } def
  124. /lpsetmyfont
  125.  { dup load setfont
  126.    OutFile null ne { cvx /setfont 1 false lpexec } { pop } ifelse
  127.  } def
  128.  
  129. % Define some utility procedures.
  130.  
  131. /banner        % ypos left center right
  132.  { /HFont lpsetmyfont
  133.    3 -1 roll bannerstring pop 0 4 index pwidth showline2 pop
  134.    exch bannerstring pwidth exch sub 2 div 3 index pwidth showline2 pop
  135.    bannerstring pwidth exch sub
  136.    3 -1 roll pwidth showline2 pop
  137.  } def
  138.  
  139. /bannerstring    % string -> string width
  140.   { PageNumberString search
  141.      { exch pop pindex 4 string cvs concatstrings exch concatstrings
  142.      }
  143.     if dup stringwidth pop
  144.   } def
  145.  
  146. /beginpage
  147.  { /lindex 0 def
  148.    /skipping pindex PageFirst ge pindex PageLast le and not def
  149.    /save 0 true lpexec /pagesave exch def
  150.    skipping { nulldevice   /OutFile null def } if
  151.    Headers
  152.     { lheight hdescent add
  153.       HeadingLeft HeadingCenter HeadingRight banner
  154.     } if
  155.    /BFont lpsetmyfont
  156.  } def
  157.  
  158. /endpage
  159.  { lindex 0 ne
  160.     { Footers
  161.        { topskip plength sub hdescent add
  162.          FootingLeft FootingCenter FootingRight banner
  163.        } if
  164.       /showpage 0 false lpexec
  165.     } if
  166.    pagesave /restore 0 true lpexec
  167.    /pindex pindex 1 add def
  168.  } def
  169.  
  170. /fontheight    % <font> fontheight <ascent> <height>
  171.  { gsave setfont
  172.    newpath 0 0 moveto
  173.    (|^_j) false charpath
  174.    pathbbox exch pop dup 2 index sub 4 -2 roll pop pop
  175.    grestore exch 1.25 mul exch 1.25 mul
  176.  } def
  177.  
  178. /wosp
  179.  { OutFile ( ) writestring OutFile exch write==only
  180.  } def
  181.  
  182. /outfont        % name font ->
  183.  { OutFile null ne
  184.     { exch wosp
  185.       dup /FontName get 
  186.       dup wosp OutFile ( findfont) writestring
  187.       %% reencode for iso latin1; from the 2nd edition red book, sec 5.6.1
  188.       OutFile ( 
  189.     dup length dict begin {1 index /FID ne {def} {pop pop} ifelse} forall
  190.     /Encoding ISOLatin1Encoding def currentdict end
  191.       ) writestring
  192.       wosp OutFile (-ISOLatin1 exch definefont) writestring
  193.       /FontMatrix get 0 get 1000 mul round cvi wosp
  194.       OutFile ( scalefont def\n) writestring
  195.     }
  196.     { pop pop
  197.     }
  198.    ifelse
  199.  } def
  200.  
  201. /StringFF (\f) def
  202. /CharFF StringFF 0 get def
  203. /StringTAB (\t) def
  204. /CharTAB StringTAB 0 get def
  205.  
  206. /showline        % line -> leftover_line (handles \f)
  207.  {  { showline1 dup length 0 eq { exit } if
  208.       dup 0 get CharFF ne { exit } if
  209.       endpage beginpage
  210.       skip1
  211.     }
  212.    loop
  213.  } def
  214.  
  215. /showline1        % line -> leftover_line (handles page break)
  216.  { lindex llength eq { endpage beginpage } if
  217.    lindex colines idiv cowidth mul        % x
  218.    lindex colines mod 1 add lheight mul neg fascent sub    % y
  219.    1 index cowidth add
  220.    showline2
  221.    /lindex lindex 1 add def
  222.  } def
  223.  
  224. /showline2    % string x y xlimit -> leftover_string (handles tabs)
  225.  { 2 index exch 5 2 roll lpmoveto    % xinit xlimit string
  226.     { showline3 dup length 0 eq { exit } if
  227.       dup 0 get CharTAB ne { exit } if
  228.       currentpoint exch 4 index sub tabwx div
  229.     0.05 add ceiling tabwx mul 4 index add exch lpmoveto
  230.       skip1
  231.       currentpoint pop 2 index ge { exit } if
  232.     }
  233.    loop exch pop exch pop
  234.  } def
  235.  
  236. /showline3    % xlimit string -> xlimit leftover_string
  237.         % (finds line break / tab / formfeed)
  238.  { currentpoint pop 2 index exch sub
  239.      cwx div 0.1 add cvi 0 max 1 index length min
  240.    1 index 0 3 -1 roll getinterval
  241.     % look for \f or \t
  242.    StringFF search { exch pop exch pop } if
  243.    StringTAB search { exch pop exch pop } if
  244.    dup lpshow
  245.    length dup 2 index length exch sub getinterval
  246.  } def
  247.  
  248. /skip1
  249.  { dup length 1 sub 1 exch getinterval
  250.  } def
  251.  
  252. /e== {        % <object> e== - -- print an object to stderr
  253.   (%stderr) (w) file dup 3 -1 roll write==only flushfile
  254. } def
  255.  
  256. /eprint {    % <string> eprint - -- print a string to stderr
  257.   (%stderr) (w) file dup 3 -1 roll writestring flushfile
  258. } def
  259.  
  260. % The main printing procedure
  261.  
  262. /lp        % file initial_chars ->
  263.  { /lpline exch def
  264.    /lpfile exch def
  265.    /save 0 true lpexec
  266.  
  267. % Initialize the device and fonts.
  268.    /BFont
  269.      BodyFont null eq { defaultBodyFont } { BodyFont } ifelse def
  270.    /BFont BFont outfont
  271.    Headers Footers or
  272.     { /HFont
  273.     HeadingFont null eq { defaultHeadingFont } { HeadingFont } ifelse def
  274.       /HFont HFont outfont
  275.     }
  276.    if
  277.  
  278. % Get the layout parameters.
  279.    clippath
  280.    Landscape { 90 /rotate 1 true lpexec } if
  281.    BFont setfont ( ) stringwidth pop /cwx exch def
  282.      cwx Tab mul /tabwx exch def
  283.    BFont fontheight /fheight exch def /fascent exch def
  284.    Headers Footers or { HFont fontheight } { 0 0 } ifelse
  285.      /hheight exch def /hascent exch def
  286.      /hdescent hheight hascent sub def
  287.    fheight Spacing mul /lheight exch def
  288.    Headers { hheight lheight add } { 0 } ifelse
  289.      /topskip exch def
  290.    Footers { hheight lheight add } { 0 } ifelse
  291.      /botskip exch def
  292.    /pskip topskip botskip add def
  293.     % Translate the page so that (0,0) corresponds to
  294.     % the top of the topmost body line.
  295.    pathbbox
  296.      2 index sub MarginBottom MarginTop add sub /plength exch def
  297.      2 index sub MarginLeft MarginRight add sub /pwidth exch def
  298.      pwidth Columns div /cowidth exch def
  299.      exch MarginLeft add
  300.      exch MarginBottom add plength add topskip sub
  301.      /translate 2 true lpexec
  302.    plength pskip sub lheight div cvi MaxLines min
  303.      dup /colines exch def
  304.      Columns mul /llength exch def
  305.    OutFile null ne { nulldevice } if
  306.  
  307. % Print layout
  308.    Noisy
  309.     { (Page height = ) eprint llength e==
  310.       (.\n) eprint flush
  311.     } if
  312.  
  313. % Disable stack recording so we can use stopped with readline.
  314.    $error /recordstacks false put
  315.  
  316. % Initialize for the first page.
  317.    /lbuf 1000 string def
  318.    /pindex 1 def
  319.    beginpage
  320.  
  321. % Iterate through the file.
  322.    lpline
  323.     { dup length /pos exch def
  324.       lbuf exch 0 exch putinterval
  325.        { lpfile lbuf pos lbuf length pos sub getinterval readline } stopped
  326.        {    % Filled the line before a CR or EOF.
  327.          exch pop showline
  328.        }
  329.        {    % Reached CR and/or EOF first.
  330.          exch length pos add lbuf exch 0 exch getinterval
  331.      1 index { showline } if        % omit final empty line
  332.       { dup length 0 eq Truncate or { pop () exit } if
  333.         showline
  334.       }
  335.      loop
  336.      exch not { exit } if
  337.        }
  338.       ifelse
  339.     } loop
  340.    pop
  341.  
  342. % Wrap up.
  343.    endpage
  344.    /restore 0 true lpexec
  345.  
  346.  } def
  347.  
  348. end
  349.  
  350. % Usage: <file> lp
  351. %   prints <file> using the current parameter settings.
  352. % Usage: [ <arg1> ... <argn> ] lpcommand
  353. %   interprets args like a command line.
  354.  
  355. /lp { save   lpdict begin () lp end   restore } def
  356.  
  357. lpdict begin
  358.  
  359. /splitfn        % (FontNNN) -> <font>
  360.  { dup /arg exch def length
  361.     { dup 0 le { exit } if
  362.       dup 1 sub arg exch get dup 48 ge exch 59 le and not { exit } if
  363.       1 sub
  364.     } loop
  365.    arg exch 0 exch getinterval dup cvn find-latin-font
  366.    exch arg exch anchorsearch pop pop cvr scalefont
  367.  } def
  368.  
  369. % Parse the command line switches.
  370.  
  371. /doswitch    % argn ... arg1 (-?) restofswitch ->
  372.  { exch dup cvn lpdict exch known
  373.     { cvn load exec }
  374.     { exch pop (Unknown switch: ) eprint eprint (\n) eprint }
  375.    ifelse
  376.  } def
  377.  
  378. /more        % argn ... arg1 restofswitch ->
  379.  { dup length 0 ne
  380.     { (- ) dup 1 3 index 0 get put
  381.       exch dup length 1 sub 1 exch getinterval
  382.       doswitch
  383.     }
  384.     { pop
  385.     }
  386.    ifelse
  387.  } def
  388.  
  389. /-- { (--) exch concatstrings
  390.       dup cvn lpdict exch known
  391.        { cvn load exec }
  392.        { (Unknown switch: ) eprint eprint (\n) eprint }
  393.       ifelse
  394.     } def
  395. /--columns { cvi 1 max /Columns exch def } def
  396. /--detect { /DetectFileType true def } def
  397. /--first-page { cvi /PageFirst exch def } def
  398. /--footing-center { /FootingCenter exch def   /Footers true def } def
  399. /--footing-left { /FootingLeft exch def   /Footers true def } def
  400. /--footing-right { /FootingRight exch def   /Footers true def} def
  401. /--heading-center { /HeadingCenter exch def   /Headers true def } def
  402. /--heading-left { /HeadingLeft exch def   /Headers true def } def
  403. /--heading-right { /HeadingRight exch def   /Headers true def } def
  404. /--margin-bottom { cvr 72.0 mul /MarginBottom exch def } def
  405. /--margin-left { cvr 72.0 mul /MarginLeft exch def } def
  406. /--margin-right { cvr 72.0 mul /MarginRight exch def } def
  407. /--margin-top { cvr 72.0 mul /MarginTop exch def } def
  408. /--last-page { cvi /PageLast exch def } def
  409. /--spacing { cvr /Spacing exch def } def
  410.  
  411. /-# { pop } def        % ignore
  412. /-+ { -- } def
  413. (-1)cvn { /Columns 1 def   more } def
  414. (-2)cvn { /Columns 2 def   more } def
  415. /-b { /HeadingLeft exch def   /HeadingCenter () def   /HeadingRight PageNumberString def
  416.       /Headers true def
  417.       /break true def
  418.     } def
  419. /-B { /HeadingLeft () def   /HeadingCenter () def   /HeadingRight () def
  420.       /Headers false def
  421.       /FootingLeft () def   /FootingCenter () def   /FootingRight () def
  422.       /Footers false def
  423.       /break true def
  424.       more
  425.     } def
  426. /-C { pop } def        % ignore
  427. /-c { /Truncate true def   more } def
  428. /-d { pop } def        % ignore
  429. /-f { splitfn /BodyFont exch def } def
  430. /-F { splitfn /HeadingFont exch def } def
  431. /-G { more } def    % ignore
  432. /-g { more } def    % ignore
  433. /-h { more } def    % ignore
  434. /-J { pop } def        % ignore
  435. /-K { more } def    % ignore
  436. /-k { more } def    % ignore
  437. /-l { 66 -L -B } def
  438. /-L { cvi /MaxLines exch def } def
  439. /-m { more } def    % ignore
  440. /-n { pop } def        % ignore
  441. /-o { more } def    % ignore
  442. /-p { (w) file /OutFile exch def   OutFile (%!\n) writestring } def
  443. /-P { pop } def        % ignore
  444. /-q { /Noisy false def   more } def
  445. /-r { /Landscape true def   more } def
  446. /-R { /Landscape false def   more } def
  447. /-S { pop } def        % ignore
  448. /-s { pop } def        % ignore
  449. /-T { cvi /Tab exch def } def
  450. /-v { pop } def        % ignore
  451. /-w { more } def    % ignore
  452.  
  453. /lp1        % filename ->
  454.  { break not { dup /HeadingLeft exch def } if
  455.    Noisy
  456.     { (Printing ) eprint dup eprint (\n) eprint 
  457.     } if
  458.    (r) file
  459.         % If requested, check for a PostScript file.
  460.    DetectFileType
  461.     { dup 2 string readstring pop dup (%!) eq
  462.        {    % Yes, it's a PostScript file.
  463.          pop dup 80 string readline pop pop cvx exec
  464.        }
  465.        { lp
  466.        }
  467.       ifelse
  468.     }
  469.     { () lp
  470.     }
  471.    ifelse
  472.  } bind def
  473.  
  474. /lpcstring 100 string def
  475.  
  476. end
  477.  
  478. /lpcommand        % [arg1 ... argn] -> -
  479.  {    % Push the commands on the stack in reverse order
  480.    mark exch
  481.    dup length 1 sub -1 0 { 1 index exch get exch } for pop
  482.    lpdict begin
  483.    /break false def
  484.     { dup mark eq { pop exit } if
  485.       dup length 2 ge { dup 0 get (-) 0 get eq } { false } ifelse
  486.        { dup 0 2 getinterval
  487.          exch dup length 2 sub 2 exch getinterval
  488.      doswitch
  489.        }
  490.        { dup  /matched false def
  491.           { /matched true def    lp1 } lpcstring filenameforall
  492.      matched { pop } { lp1 } ifelse        % let the error happen
  493.        }
  494.       ifelse
  495.     } loop
  496.    OutFile null ne
  497.     { OutFile (%stdout) (w) file ne { OutFile closefile } if
  498.       /OutFile null def
  499.     } if
  500.    end
  501.  } def
  502.  
  503. [ shellarguments
  504.  { ] dup length 0 ne
  505.     { lpcommand
  506.     }
  507.     { (Usage: gslp [-12BclqRr] [-b<header] [-f<font>] [-F<hfont>]\n) eprint
  508.       (        [-L<lines>] [-p<outfile>] [-T<tabwidth>] [--columns <n>]\n) eprint
  509.       (        [--detect] [--first-page <page#>] [--last-page <page#>]\n) eprint
  510.       (        [--(heading|footing)-(left|right|center) <string>]\n) eprint
  511.       (        [--margin-(top|bottom|left|right) <inches>]\n) eprint
  512.       (        [--spacing <n>] file1 ... filen\n) eprint
  513.     }
  514.    ifelse
  515.  }
  516.  { pop }
  517. ifelse
  518.